#n = x / y ( round(x/y,0) )
clear n;
copy x to i;
incr i;
while i not 0 do;
	copy y to j;
	while j not 0 do;	
		decr i;
		decr j;
	end;
	incr n;
end;
decr n;
